home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / AGS_SL10.ZIP / AGS_LAST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-17  |  13KB  |  752 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     Integer  INTEGER025
  44.     Integer  INTEGER026
  45.     Integer  INTEGER027
  46.     Integer  INTEGER028
  47.     Integer  INTEGER029
  48.     Integer  INTEGER030
  49.     Integer  INTEGER031
  50.     Integer  INTEGER032
  51.     Integer  INTEGER033
  52.     Integer  INTEGER034
  53.     Integer  INTEGER035
  54.     Integer  INTEGER036
  55.     Integer  INTEGER037
  56.     Integer  INTEGER038
  57.     Integer  INTEGER039
  58.     Integer  INTEGER040
  59.     Integer  INTEGER041
  60.     Integer  INTEGER042
  61.     Integer  INTEGER043
  62.     Integer  INTEGER044
  63.     Integer  INTEGER045
  64.     String   TSTRING001(40)
  65.     String   TSTRING002(41)
  66.     String   TSTRING003(42)
  67.     String   TSTRING004(43)
  68.     String   TSTRING005(50)
  69.     String   TSTRING006(50)
  70.     String   TSTRING007(50)
  71.     String   STRING008
  72.     String   STRING009
  73.     String   STRING010
  74.     String   STRING011
  75.     String   STRING012
  76.     String   STRING013
  77.     String   STRING014
  78.     String   STRING015
  79.     String   STRING016
  80.     String   STRING017
  81.     String   STRING018
  82.     String   STRING019
  83.     String   STRING020
  84.     String   STRING021
  85.     String   STRING022
  86.     String   STRING023
  87.     String   STRING024
  88.     String   STRING025
  89.     String   STRING026
  90.     String   STRING027
  91.     String   STRING028
  92.  
  93. ;------------------------------------------------------------------------------
  94.  
  95.     If (!Exist(PPEPath() + "Last.dat")) FCreate 1, PPEPath() + "last.dat", 1, 3
  96.     If (!Exist(PPEPath() + "Last2.dat")) FCreate 2, PPEPath() + "last2.dat", 1, 3
  97.     GetUser
  98.     For INTEGER001 = 1 To 37
  99.         If (INTEGER001 == 1) Goto LABEL001
  100.         INTEGER001 = INTEGER001 + 3
  101.         :LABEL001
  102.         TSTRING001(INTEGER001) = ReadLine(PPEPath() + "last.dat", INTEGER001)
  103.     Next
  104.     For INTEGER002 = 2 To 38
  105.         If (INTEGER002 == 2) Goto LABEL002
  106.         INTEGER002 = INTEGER002 + 3
  107.         :LABEL002
  108.         TSTRING002(INTEGER002) = ReadLine(PPEPath() + "last.dat", INTEGER002)
  109.     Next
  110.     For INTEGER003 = 3 To 39
  111.         If (INTEGER003 == 3) Goto LABEL003
  112.         INTEGER003 = INTEGER003 + 3
  113.         :LABEL003
  114.         TSTRING003(INTEGER003) = ReadLine(PPEPath() + "last.dat", INTEGER003)
  115.     Next
  116.     For INTEGER004 = 4 To 40
  117.         If (INTEGER004 == 4) Goto LABEL004
  118.         INTEGER004 = INTEGER004 + 3
  119.         :LABEL004
  120.         TSTRING004(INTEGER004) = ReadLine(PPEPath() + "last.dat", INTEGER004)
  121.     Next
  122.     FClose -1
  123.     For INTEGER005 = 1 To 37
  124.         If (INTEGER005 == 1) Goto LABEL005
  125.         INTEGER005 = INTEGER005 + 3
  126.         :LABEL005
  127.         TSTRING005(INTEGER005) = ReadLine(PPEPath() + "last2.dat", INTEGER005)
  128.     Next
  129.     For INTEGER006 = 2 To 38
  130.         If (INTEGER006 == 2) Goto LABEL006
  131.         INTEGER006 = INTEGER006 + 3
  132.         :LABEL006
  133.         TSTRING007(INTEGER006) = ReadLine(PPEPath() + "last2.dat", INTEGER006)
  134.     Next
  135.     For INTEGER007 = 3 To 39
  136.         If (INTEGER007 == 3) Goto LABEL007
  137.         INTEGER007 = INTEGER007 + 3
  138.         :LABEL007
  139.         TSTRING006(INTEGER007) = ReadLine(PPEPath() + "last2.dat", INTEGER007)
  140.     Next
  141.     FClose -1
  142.     FOpen 4, PPEPath() + "ags_last.cfg", 2, 1
  143.     FGet 4, INTEGER023
  144.     FGet 4, STRING026
  145.     FGet 4, STRING027
  146.     FGet 4, STRING028
  147.     FGet 4, STRING010
  148.     FGet 4, INTEGER017
  149.     FGet 4, INTEGER021
  150.     FGet 4, STRING012
  151.     FGet 4, STRING014
  152.     FGet 4, STRING013
  153.     FGet 4, STRING015
  154.     FGet 4, STRING017
  155.     FGet 4, STRING019
  156.     FGet 4, STRING016
  157.     FGet 4, STRING018
  158.     FGet 4, STRING011
  159.     FGet 4, INTEGER024
  160.     FGet 4, INTEGER025
  161.     FGet 4, INTEGER026
  162.     FGet 4, INTEGER027
  163.     FGet 4, INTEGER028
  164.     FGet 4, INTEGER029
  165.     FGet 4, INTEGER030
  166.     FGet 4, INTEGER031
  167.     FGet 4, INTEGER032
  168.     FGet 4, INTEGER033
  169.     FGet 4, INTEGER034
  170.     FGet 4, INTEGER035
  171.     FGet 4, INTEGER036
  172.     FGet 4, INTEGER037
  173.     FGet 4, INTEGER038
  174.     FGet 4, INTEGER039
  175.     FGet 4, INTEGER040
  176.     FGet 4, INTEGER041
  177.     FGet 4, INTEGER042
  178.     FGet 4, INTEGER043
  179.     FGet 4, INTEGER044
  180.     FGet 4, INTEGER045
  181.     FClose 4
  182.     Cls
  183.     DispFile PPEPath() + "ags_last.pcb", 1
  184.     If (INTEGER023 == 1) Goto LABEL008
  185.     If (INTEGER023 == 2) Goto LABEL009
  186.     If (INTEGER023 == 3) Goto LABEL010
  187.     If (INTEGER023 == 4) Goto LABEL011
  188.     If (INTEGER023 == 5) Goto LABEL012
  189.     :LABEL008
  190.     INTEGER008 = INTEGER025
  191.     INTEGER010 = 1
  192.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "A", "a")
  193.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "E", "e")
  194.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "I", "i")
  195.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "U", "u")
  196.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "Y", "y")
  197.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "O", "o")
  198.     AnsiPos INTEGER008, 4
  199.     DispStr STRING028 + TSTRING001(INTEGER010)
  200.     STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  201.     STRING008 = Replace(STRING008, "A", "a")
  202.     STRING008 = Replace(STRING008, "E", "e")
  203.     STRING008 = Replace(STRING008, "I", "i")
  204.     STRING008 = Replace(STRING008, "O", "o")
  205.     STRING008 = Replace(STRING008, "U", "u")
  206.     STRING008 = Replace(STRING008, "Y", "y")
  207.     AnsiPos INTEGER008, 4
  208.     DispStr STRING027 + STRING008
  209.     STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  210.     STRING009 = Replace(STRING009, "A", "a")
  211.     STRING009 = Replace(STRING009, "E", "e")
  212.     STRING009 = Replace(STRING009, "I", "i")
  213.     STRING009 = Replace(STRING009, "O", "o")
  214.     STRING009 = Replace(STRING009, "U", "u")
  215.     STRING009 = Replace(STRING009, "Y", "y")
  216.     AnsiPos INTEGER008, 4
  217.     DispStr STRING026 + STRING009
  218.     For INTEGER009 = 1 To 9
  219.         AnsiPos INTEGER008, 4 + INTEGER009
  220.         INTEGER010 = INTEGER010 + 4
  221.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "A", "a")
  222.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "E", "e")
  223.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "I", "i")
  224.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "U", "u")
  225.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "Y", "y")
  226.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "O", "o")
  227.         AnsiPos INTEGER008, 4 + INTEGER009
  228.         DispStr STRING028 + TSTRING001(INTEGER010)
  229.         STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  230.         STRING008 = Replace(STRING008, "A", "a")
  231.         STRING008 = Replace(STRING008, "E", "e")
  232.         STRING008 = Replace(STRING008, "I", "i")
  233.         STRING008 = Replace(STRING008, "O", "o")
  234.         STRING008 = Replace(STRING008, "U", "u")
  235.         STRING008 = Replace(STRING008, "Y", "y")
  236.         AnsiPos INTEGER008, 4 + INTEGER009
  237.         DispStr STRING027 + STRING008
  238.         STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  239.         STRING009 = Replace(STRING009, "A", "a")
  240.         STRING009 = Replace(STRING009, "E", "e")
  241.         STRING009 = Replace(STRING009, "I", "i")
  242.         STRING009 = Replace(STRING009, "O", "o")
  243.         STRING009 = Replace(STRING009, "U", "u")
  244.         STRING009 = Replace(STRING009, "Y", "y")
  245.         AnsiPos INTEGER008, 4 + INTEGER009
  246.         DispStr STRING026 + STRING009
  247.     Next
  248.     Goto LABEL013
  249.     :LABEL009
  250.     INTEGER008 = INTEGER025
  251.     INTEGER010 = 1
  252.     TSTRING001(INTEGER010) = Lower(TSTRING001(INTEGER010))
  253.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "a", "A")
  254.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "e", "E")
  255.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "i", "I")
  256.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "o", "O")
  257.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "u", "U")
  258.     TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "y", "Y")
  259.     AnsiPos INTEGER008, 4
  260.     DispStr STRING028 + TSTRING001(INTEGER010)
  261.     STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  262.     STRING008 = Replace(STRING008, "a", "A")
  263.     STRING008 = Replace(STRING008, "e", "E")
  264.     STRING008 = Replace(STRING008, "i", "I")
  265.     STRING008 = Replace(STRING008, "o", "O")
  266.     STRING008 = Replace(STRING008, "u", "U")
  267.     STRING008 = Replace(STRING008, "y", "Y")
  268.     AnsiPos INTEGER008, 4
  269.     DispStr STRING027 + STRING008
  270.     STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  271.     STRING009 = Replace(STRING009, "a", "A")
  272.     STRING009 = Replace(STRING009, "e", "E")
  273.     STRING009 = Replace(STRING009, "i", "I")
  274.     STRING009 = Replace(STRING009, "o", "O")
  275.     STRING009 = Replace(STRING009, "u", "U")
  276.     STRING009 = Replace(STRING009, "y", "Y")
  277.     AnsiPos INTEGER008, 4
  278.     DispStr STRING026 + STRING009
  279.     For INTEGER009 = 1 To 9
  280.         AnsiPos INTEGER008, 4 + INTEGER009
  281.         INTEGER010 = INTEGER010 + 4
  282.         TSTRING001(INTEGER010) = Lower(TSTRING001(INTEGER010))
  283.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "a", "A")
  284.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "e", "E")
  285.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "i", "I")
  286.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "o", "O")
  287.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "u", "U")
  288.         TSTRING001(INTEGER010) = Replace(TSTRING001(INTEGER010), "y", "Y")
  289.         AnsiPos INTEGER008, 4 + INTEGER009
  290.         DispStr STRING028 + TSTRING001(INTEGER010)
  291.         STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  292.         STRING008 = Replace(STRING008, "a", "A")
  293.         STRING008 = Replace(STRING008, "e", "E")
  294.         STRING008 = Replace(STRING008, "i", "I")
  295.         STRING008 = Replace(STRING008, "o", "O")
  296.         STRING008 = Replace(STRING008, "u", "U")
  297.         STRING008 = Replace(STRING008, "y", "Y")
  298.         AnsiPos INTEGER008, 4 + INTEGER009
  299.         DispStr STRING027 + STRING008
  300.         STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  301.         STRING009 = Replace(STRING009, "a", "A")
  302.         STRING009 = Replace(STRING009, "e", "E")
  303.         STRING009 = Replace(STRING009, "i", "I")
  304.         STRING009 = Replace(STRING009, "o", "O")
  305.         STRING009 = Replace(STRING009, "u", "U")
  306.         STRING009 = Replace(STRING009, "y", "Y")
  307.         AnsiPos INTEGER008, 4 + INTEGER009
  308.         DispStr STRING026 + STRING009
  309.     Next
  310.     Goto LABEL013
  311.     :LABEL010
  312.     INTEGER008 = INTEGER025
  313.     INTEGER010 = 1
  314.     AnsiPos INTEGER008, 4
  315.     DispStr STRING028 + TSTRING001(INTEGER010)
  316.     STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  317.     AnsiPos INTEGER008, 4
  318.     DispStr STRING027 + STRING008
  319.     STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  320.     AnsiPos INTEGER008, 4
  321.     DispStr STRING026 + STRING009
  322.     For INTEGER009 = 1 To 9
  323.         AnsiPos INTEGER008, 4 + INTEGER009
  324.         INTEGER010 = INTEGER010 + 4
  325.         AnsiPos INTEGER008, 4 + INTEGER009
  326.         DispStr STRING028 + TSTRING001(INTEGER010)
  327.         STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  328.         AnsiPos INTEGER008, 4 + INTEGER009
  329.         DispStr STRING027 + STRING008
  330.         STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  331.         AnsiPos INTEGER008, 4 + INTEGER009
  332.         DispStr STRING026 + STRING009
  333.     Next
  334.     Goto LABEL013
  335.     :LABEL011
  336.     INTEGER008 = INTEGER025
  337.     INTEGER010 = 1
  338.     AnsiPos INTEGER008, 4
  339.     DispStr STRING028 + TSTRING001(INTEGER010)
  340.     STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  341.     AnsiPos INTEGER008, 4
  342.     DispStr STRING027 + STRING008
  343.     STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  344.     AnsiPos INTEGER008, 4
  345.     DispStr STRING026 + Lower(STRING009)
  346.     For INTEGER009 = 1 To 9
  347.         AnsiPos INTEGER008, 4 + INTEGER009
  348.         INTEGER010 = INTEGER010 + 4
  349.         AnsiPos INTEGER008, 4 + INTEGER009
  350.         DispStr STRING028 + TSTRING001(INTEGER010)
  351.         STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  352.         AnsiPos INTEGER008, 4 + INTEGER009
  353.         DispStr STRING027 + STRING008
  354.         STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  355.         AnsiPos INTEGER008, 4 + INTEGER009
  356.         DispStr STRING026 + Lower(STRING009)
  357.     Next
  358.     Goto LABEL013
  359.     :LABEL012
  360.     INTEGER008 = INTEGER025
  361.     INTEGER010 = 1
  362.     TSTRING001(INTEGER010) = Lower(TSTRING001(INTEGER010))
  363.     AnsiPos INTEGER008, 4
  364.     DispStr STRING028 + TSTRING001(INTEGER010)
  365.     STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  366.     AnsiPos INTEGER008, 4
  367.     DispStr STRING027 + STRING008
  368.     STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  369.     AnsiPos INTEGER008, 4
  370.     DispStr STRING026 + Upper(STRING009)
  371.     For INTEGER009 = 1 To 9
  372.         AnsiPos INTEGER008, 4 + INTEGER009
  373.         INTEGER010 = INTEGER010 + 4
  374.         TSTRING001(INTEGER010) = Lower(TSTRING001(INTEGER010))
  375.         AnsiPos INTEGER008, 4 + INTEGER009
  376.         DispStr STRING028 + TSTRING001(INTEGER010)
  377.         STRING008 = Mid(TSTRING001(INTEGER010), 1, 2)
  378.         AnsiPos INTEGER008, 4 + INTEGER009
  379.         DispStr STRING027 + STRING008
  380.         STRING009 = Mid(TSTRING001(INTEGER010), 1, 1)
  381.         AnsiPos INTEGER008, 4 + INTEGER009
  382.         DispStr STRING026 + Upper(STRING009)
  383.     Next
  384.     :LABEL013
  385.     INTEGER008 = INTEGER026
  386.     INTEGER011 = 2
  387.     AnsiPos INTEGER008, 4
  388.     DispStr STRING028 + TSTRING002(INTEGER011)
  389.     AnsiPos INTEGER008, 4
  390.     STRING008 = Mid(TSTRING002(INTEGER011), 1, 2)
  391.     DispStr STRING027 + STRING008
  392.     AnsiPos INTEGER008, 4
  393.     STRING009 = Mid(TSTRING002(INTEGER011), 1, 1)
  394.     DispStr STRING026 + STRING009
  395.     For INTEGER009 = 1 To 9
  396.         AnsiPos INTEGER008, 4 + INTEGER009
  397.         INTEGER011 = INTEGER011 + 4
  398.         AnsiPos INTEGER008, 4 + INTEGER009
  399.         DispStr STRING028 + TSTRING002(INTEGER011)
  400.         AnsiPos INTEGER008, 4 + INTEGER009
  401.         STRING008 = Mid(TSTRING002(INTEGER011), 1, 2)
  402.         DispStr STRING027 + STRING008
  403.         AnsiPos INTEGER008, 4 + INTEGER009
  404.         STRING009 = Mid(TSTRING002(INTEGER011), 1, 1)
  405.         DispStr STRING026 + STRING009
  406.     Next
  407.     INTEGER008 = INTEGER029 - Len(TSTRING003(3))
  408.     AnsiPos INTEGER008, 4
  409.     INTEGER012 = 3
  410.     AnsiPos INTEGER008, 4
  411.     DispStr STRING028 + TSTRING003(INTEGER012)
  412.     AnsiPos INTEGER008, 4
  413.     STRING008 = Mid(TSTRING003(INTEGER012), 1, 2)
  414.     DispStr STRING027 + STRING008
  415.     AnsiPos INTEGER008, 4
  416.     STRING009 = Mid(TSTRING003(INTEGER012), 1, 1)
  417.     DispStr STRING026 + STRING009
  418.     For INTEGER009 = 1 To 9
  419.         INTEGER012 = INTEGER012 + 4
  420.         INTEGER008 = INTEGER029 - Len(TSTRING003(INTEGER012))
  421.         AnsiPos INTEGER008, 4 + INTEGER009
  422.         DispStr STRING028 + TSTRING003(INTEGER012)
  423.         AnsiPos INTEGER008, 4 + INTEGER009
  424.         STRING008 = Mid(TSTRING003(INTEGER012), 1, 2)
  425.         DispStr STRING027 + STRING008
  426.         AnsiPos INTEGER008, 4 + INTEGER009
  427.         STRING009 = Mid(TSTRING003(INTEGER012), 1, 1)
  428.         DispStr STRING026 + STRING009
  429.     Next
  430.     INTEGER008 = INTEGER024
  431.     INTEGER013 = 4
  432.     AnsiPos INTEGER008, 4
  433.     DispStr STRING028 + TSTRING004(INTEGER013)
  434.     AnsiPos INTEGER008, 4
  435.     STRING008 = Mid(TSTRING004(INTEGER013), 1, 2)
  436.     DispStr STRING027 + STRING008
  437.     AnsiPos INTEGER008, 4
  438.     STRING009 = Mid(TSTRING004(INTEGER013), 1, 1)
  439.     DispStr STRING026 + STRING009
  440.     For INTEGER009 = 1 To 9
  441.         INTEGER013 = INTEGER013 + 4
  442.         AnsiPos INTEGER008, 4 + INTEGER009
  443.         DispStr STRING028 + TSTRING004(INTEGER013)
  444.         AnsiPos INTEGER008, 4 + INTEGER009
  445.         STRING008 = Mid(TSTRING004(INTEGER013), 1, 2)
  446.         DispStr STRING027 + STRING008
  447.         AnsiPos INTEGER008, 4 + INTEGER009
  448.         STRING009 = Mid(TSTRING004(INTEGER013), 1, 1)
  449.         DispStr STRING026 + STRING009
  450.     Next
  451.     INTEGER008 = INTEGER027 - Len(TSTRING005(1))
  452.     AnsiPos INTEGER008, 4
  453.     INTEGER014 = 1
  454.     AnsiPos INTEGER008, 4
  455.     DispStr STRING028 + TSTRING005(INTEGER014)
  456.     AnsiPos INTEGER008, 4
  457.     STRING008 = Mid(TSTRING005(INTEGER014), 1, 2)
  458.     DispStr STRING027 + STRING008
  459.     AnsiPos INTEGER008, 4
  460.     STRING009 = Mid(TSTRING005(INTEGER014), 1, 1)
  461.     DispStr STRING026 + STRING009
  462.     For INTEGER009 = 1 To 9
  463.         INTEGER014 = INTEGER014 + 4
  464.         INTEGER008 = INTEGER027 - Len(TSTRING005(INTEGER014))
  465.         AnsiPos INTEGER008, 4 + INTEGER009
  466.         DispStr STRING028 + TSTRING005(INTEGER014)
  467.         AnsiPos INTEGER008, 4 + INTEGER009
  468.         STRING008 = Mid(TSTRING005(INTEGER014), 1, 2)
  469.         DispStr STRING027 + STRING008
  470.         AnsiPos INTEGER008, 4 + INTEGER009
  471.         STRING009 = Mid(TSTRING005(INTEGER014), 1, 1)
  472.         DispStr STRING026 + STRING009
  473.     Next
  474.     INTEGER008 = INTEGER028 - Len(TSTRING007(2))
  475.     AnsiPos INTEGER008, 4
  476.     INTEGER015 = 2
  477.     AnsiPos INTEGER008, 4
  478.     DispStr STRING028 + TSTRING007(INTEGER015)
  479.     AnsiPos INTEGER008, 4
  480.     STRING008 = Mid(TSTRING007(INTEGER015), 1, 2)
  481.     DispStr STRING027 + STRING008
  482.     AnsiPos INTEGER008, 4
  483.     STRING009 = Mid(TSTRING007(INTEGER015), 1, 1)
  484.     DispStr STRING026 + STRING009
  485.     For INTEGER009 = 1 To 9
  486.         INTEGER015 = INTEGER015 + 4
  487.         INTEGER008 = INTEGER028 - Len(TSTRING007(INTEGER015))
  488.         AnsiPos INTEGER008, 4 + INTEGER009
  489.         DispStr STRING028 + TSTRING007(INTEGER015)
  490.         AnsiPos INTEGER008, 4 + INTEGER009
  491.         STRING008 = Mid(TSTRING007(INTEGER015), 1, 2)
  492.         DispStr STRING027 + STRING008
  493.         AnsiPos INTEGER008, 4 + INTEGER009
  494.         STRING009 = Mid(TSTRING007(INTEGER015), 1, 1)
  495.         DispStr STRING026 + STRING009
  496.     Next
  497.     INTEGER008 = INTEGER030 - Len(TSTRING006(3))
  498.     AnsiPos INTEGER008, 4
  499.     INTEGER016 = 3
  500.     DispStr STRING028 + TSTRING006(3)
  501.     AnsiPos INTEGER008, 4
  502.     STRING008 = Mid(TSTRING006(3), 1, 2)
  503.     DispStr STRING027 + STRING008
  504.     AnsiPos INTEGER008, 4
  505.     STRING009 = Mid(TSTRING006(3), 1, 1)
  506.     DispStr STRING026 + STRING009
  507.     For INTEGER009 = 1 To 9
  508.         INTEGER016 = INTEGER016 + 4
  509.         INTEGER008 = INTEGER030 - Len(TSTRING006(INTEGER016))
  510.         AnsiPos INTEGER008, 4 + INTEGER009
  511.         DispStr STRING028 + TSTRING006(INTEGER016)
  512.         AnsiPos INTEGER008, 4 + INTEGER009
  513.         STRING008 = Mid(TSTRING006(INTEGER016), 1, 2)
  514.         DispStr STRING027 + STRING008
  515.         AnsiPos INTEGER008, 4 + INTEGER009
  516.         STRING009 = Mid(TSTRING006(INTEGER016), 1, 1)
  517.         DispStr STRING026 + STRING009
  518.     Next
  519.     INTEGER022 = CurSec()
  520.     INTEGER018 = INTEGER017 / INTEGER021
  521.     INTEGER019 = INTEGER022 / INTEGER018
  522.     INTEGER020 = (80 - INTEGER021) / 2
  523.     AnsiPos INTEGER020, INTEGER031
  524.     Print STRING019 + STRING017
  525.     AnsiPos INTEGER020 + INTEGER021 + 1, INTEGER031
  526.     Print STRING018 + STRING016
  527.     For INTEGER008 = INTEGER020 + 1 To INTEGER020 + INTEGER021
  528.         AnsiPos INTEGER008, INTEGER031
  529.         Print STRING015 + STRING013
  530.     Next
  531.     For INTEGER008 = INTEGER020 + 1 To INTEGER020 + INTEGER019
  532.         AnsiPos INTEGER008, INTEGER031
  533.         DispStr STRING014 + STRING012
  534.         AnsiPos INTEGER020 + INTEGER021 + 3 - Len(""), 16
  535.         Print "@X0F", (((INTEGER008 - INTEGER020) * 100) / INTEGER017) * (INTEGER017 / INTEGER021), "%"
  536.         Delay 1
  537.     Next
  538.     AnsiPos INTEGER032, INTEGER033
  539.     Print "@X0F" + CurSec()
  540.     STRING020 = Carrier()
  541.     STRING021 = U_Logons()
  542.     STRING022 = U_Bul() / 1024
  543.     STRING023 = U_Bdl() / 1024
  544.     STRING024 = U_Name()
  545.     STRING025 = U_City
  546.     AnsiPos INTEGER036, INTEGER037
  547.     DispStr STRING028 + STRING020
  548.     STRING008 = Mid(STRING020, 1, 2)
  549.     AnsiPos INTEGER036, INTEGER037
  550.     DispStr STRING027 + STRING008
  551.     STRING009 = Mid(STRING020, 1, 1)
  552.     AnsiPos INTEGER036, INTEGER037
  553.     DispStr STRING026 + STRING009
  554.     AnsiPos INTEGER034, INTEGER035
  555.     DispStr STRING028 + STRING021
  556.     STRING008 = Mid(STRING021, 1, 2)
  557.     AnsiPos INTEGER034, INTEGER035
  558.     DispStr STRING027 + STRING008
  559.     STRING009 = Mid(STRING021, 1, 1)
  560.     AnsiPos INTEGER034, INTEGER035
  561.     DispStr STRING026 + STRING009
  562.     AnsiPos INTEGER038, INTEGER039
  563.     DispStr STRING028 + STRING022
  564.     DispStr " Ko"
  565.     STRING008 = Mid(STRING022, 1, 2)
  566.     AnsiPos INTEGER038, INTEGER039
  567.     DispStr STRING027 + STRING008
  568.     STRING009 = Mid(STRING022, 1, 1)
  569.     AnsiPos INTEGER038, INTEGER039
  570.     DispStr STRING026 + STRING009
  571.     AnsiPos INTEGER040, INTEGER041
  572.     DispStr STRING028 + STRING023
  573.     DispStr " Ko"
  574.     STRING008 = Mid(STRING023, 1, 2)
  575.     AnsiPos INTEGER040, INTEGER041
  576.     DispStr STRING027 + STRING008
  577.     STRING009 = Mid(STRING023, 1, 1)
  578.     AnsiPos INTEGER040, INTEGER041
  579.     DispStr STRING026 + STRING009
  580.     If (INTEGER023 == 1) Goto LABEL014
  581.     If (INTEGER023 == 2) Goto LABEL015
  582.     If (INTEGER023 == 3) Goto LABEL016
  583.     If (INTEGER023 == 4) Goto LABEL017
  584.     If (INTEGER023 == 5) Goto LABEL018
  585.     :LABEL014
  586.     STRING024 = Replace(STRING024, "A", "a")
  587.     STRING024 = Replace(STRING024, "E", "e")
  588.     STRING024 = Replace(STRING024, "I", "i")
  589.     STRING024 = Replace(STRING024, "U", "u")
  590.     STRING024 = Replace(STRING024, "Y", "y")
  591.     STRING024 = Replace(STRING024, "O", "o")
  592.     AnsiPos INTEGER042, INTEGER043
  593.     DispStr STRING028 + STRING024
  594.     STRING008 = Mid(STRING024, 1, 2)
  595.     STRING008 = Replace(STRING008, "A", "a")
  596.     STRING008 = Replace(STRING008, "E", "e")
  597.     STRING008 = Replace(STRING008, "I", "i")
  598.     STRING008 = Replace(STRING008, "O", "o")
  599.     STRING008 = Replace(STRING008, "U", "u")
  600.     STRING008 = Replace(STRING008, "Y", "y")
  601.     AnsiPos INTEGER042, INTEGER043
  602.     DispStr STRING027 + STRING008
  603.     STRING009 = Mid(STRING024, 1, 1)
  604.     STRING009 = Replace(STRING009, "A", "a")
  605.     STRING009 = Replace(STRING009, "E", "e")
  606.     STRING009 = Replace(STRING009, "I", "i")
  607.     STRING009 = Replace(STRING009, "O", "o")
  608.     STRING009 = Replace(STRING009, "U", "u")
  609.     STRING009 = Replace(STRING009, "Y", "y")
  610.     AnsiPos INTEGER042, INTEGER043
  611.     DispStr STRING026 + STRING009
  612.     Goto LABEL019
  613.     :LABEL015
  614.     STRING024 = Lower(STRING024)
  615.     STRING024 = Replace(STRING024, "a", "A")
  616.     STRING024 = Replace(STRING024, "e", "E")
  617.     STRING024 = Replace(STRING024, "i", "I")
  618.     STRING024 = Replace(STRING024, "o", "O")
  619.     STRING024 = Replace(STRING024, "u", "U")
  620.     STRING024 = Replace(STRING024, "y", "Y")
  621.     AnsiPos INTEGER042, INTEGER043
  622.     DispStr STRING028 + STRING024
  623.     STRING008 = Mid(STRING024, 1, 2)
  624.     STRING008 = Replace(STRING008, "a", "A")
  625.     STRING008 = Replace(STRING008, "e", "E")
  626.     STRING008 = Replace(STRING008, "i", "I")
  627.     STRING008 = Replace(STRING008, "o", "O")
  628.     STRING008 = Replace(STRING008, "u", "U")
  629.     STRING008 = Replace(STRING008, "y", "Y")
  630.     AnsiPos INTEGER042, INTEGER043
  631.     DispStr STRING027 + STRING008
  632.     STRING009 = Mid(STRING024, 1, 1)
  633.     STRING009 = Replace(STRING009, "a", "A")
  634.     STRING009 = Replace(STRING009, "e", "E")
  635.     STRING009 = Replace(STRING009, "i", "I")
  636.     STRING009 = Replace(STRING009, "o", "O")
  637.     STRING009 = Replace(STRING009, "u", "U")
  638.     STRING009 = Replace(STRING009, "y", "Y")
  639.     AnsiPos INTEGER042, INTEGER043
  640.     DispStr STRING026 + STRING009
  641.     Goto LABEL019
  642.     :LABEL016
  643.     AnsiPos INTEGER042, INTEGER043
  644.     DispStr STRING028 + STRING024
  645.     STRING008 = Mid(STRING024, 1, 2)
  646.     AnsiPos INTEGER042, INTEGER043
  647.     DispStr STRING027 + STRING008
  648.     STRING009 = Mid(STRING024, 1, 1)
  649.     AnsiPos INTEGER042, INTEGER043
  650.     DispStr STRING026 + STRING009
  651.     Goto LABEL019
  652.     :LABEL017
  653.     AnsiPos INTEGER042, INTEGER043
  654.     DispStr STRING028 + STRING024
  655.     STRING008 = Mid(STRING024, 1, 2)
  656.     AnsiPos INTEGER042, INTEGER043
  657.     DispStr STRING027 + STRING008
  658.     STRING009 = Mid(STRING024, 1, 1)
  659.     AnsiPos INTEGER042, INTEGER043
  660.     DispStr STRING026 + Lower(STRING009)
  661.     Goto LABEL019
  662.     :LABEL018
  663.     STRING024 = Lower(STRING024)
  664.     AnsiPos INTEGER042, INTEGER043
  665.     DispStr STRING028 + STRING024
  666.     STRING008 = Mid(STRING024, 1, 2)
  667.     AnsiPos INTEGER042, INTEGER043
  668.     DispStr STRING027 + STRING008
  669.     STRING009 = Mid(STRING024, 1, 1)
  670.     AnsiPos INTEGER042, INTEGER043
  671.     DispStr STRING026 + Upper(STRING009)
  672.     :LABEL019
  673.     AnsiPos INTEGER044, INTEGER045
  674.     DispStr STRING028 + STRING025
  675.     STRING008 = Mid(STRING025, 1, 2)
  676.     AnsiPos INTEGER044, INTEGER045
  677.     DispStr STRING027 + STRING008
  678.     STRING009 = Mid(STRING025, 1, 1)
  679.     AnsiPos INTEGER044, INTEGER045
  680.     DispStr STRING026 + STRING009
  681.     AnsiPos 1, 23
  682.     Wait
  683.  
  684. ;------------------------------------------------------------------------------
  685. ;
  686. ; Usage report (before postprocessing)
  687. ;
  688. ; ■ Statements used :
  689. ;
  690. ;    1       Cls
  691. ;    1       Wait
  692. ;    68      Goto 
  693. ;    279     Let 
  694. ;    5       Print 
  695. ;    39      If 
  696. ;    1       DispFile 
  697. ;    2       FCreate 
  698. ;    1       FOpen 
  699. ;    3       FClose 
  700. ;    38      FGet 
  701. ;    1       GetUser
  702. ;    1       Delay 
  703. ;    99      DispStr 
  704. ;    112     AnsiPos 
  705. ;
  706. ;
  707. ; ■ Functions used :
  708. ;
  709. ;    2       -
  710. ;    2       *
  711. ;    7       /
  712. ;    201     +
  713. ;    11      -
  714. ;    17      ==
  715. ;    20      <
  716. ;    20      <=
  717. ;    40      >=
  718. ;    22      !
  719. ;    40      &&
  720. ;    20      ||
  721. ;    9       Len(
  722. ;    9       Lower()
  723. ;    3       Upper()
  724. ;    64      Mid()
  725. ;    1       U_Name()
  726. ;    1       U_Logons()
  727. ;    1       U_Bdl()
  728. ;    1       U_Bul()
  729. ;    108     Replace()
  730. ;    13      PPEPath()
  731. ;    7       ReadLine()
  732. ;    2       CurSec()
  733. ;    2       Exist()
  734. ;    1       Carrier()
  735. ;
  736. ;------------------------------------------------------------------------------
  737. ;
  738. ; Analysis flags : No flag
  739. ;
  740. ;------------------------------------------------------------------------------
  741. ;
  742. ; Postprocessing report
  743. ;
  744. ;    20      For/Next
  745. ;    0       While/EndWhile
  746. ;    0       If/Then or If/Then/Else
  747. ;    0       Select Case
  748. ;
  749. ;------------------------------------------------------------------------------
  750. ;                 AEGiS Corp - Break the routines, code against the machines!
  751. ;------------------------------------------------------------------------------
  752.